package Rotation_Package is

   -- Dessa typer borde nog vara private:
   type Int_Vector is array(1..3) of Integer;
   Rotation_Axis_Error : exception;

   --procedure Matrix_Put(M : in Float_Matrix);
   procedure Vector_Put(V : in Int_Vector);
   function Rotate_Single_Point_Around_Axis(V_In : Int_Vector;
                                            Rotation_Angle : Float;
                                            Rotation_Axis : Character)
                                           return Int_Vector;
   procedure Rotate_Single_Point_Around_Axis(V : in out Int_Vector;
                                            Rotation_Angle : in Float;
                                            Rotation_Axis : in Character);

   --function Get_Rotation_Matrix(Rotation_Angle : Float;
   --                             Rotation_Axis : Character) return Float_Matrix;
   function Move_Single_Point(V : Int_Vector;
                              X, Y, Z : Integer) return Int_Vector;
   procedure Move_Single_Point(V : in out Int_Vector;
                               X, Y, Z : in Integer);
private
   type Int_Matrix is array(1..3, 1..3) of Integer; -- Index: (rad, kollumn)

end Rotation_Package;


